home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / maxs / mp2.lha / C / SubNum < prev    next >
AmigaDOS Script File  |  1997-09-21  |  268b  |  18 lines
  1. .key Var/a,Amount/a,Min/a,Max/a
  2. .bra {
  3. .ket }
  4.  
  5. ; Number increase script.  Like Add in amos :)
  6.  
  7. IF NOT EXISTS Env:{Var}
  8. Echo "{Max}" >${Var}
  9. ENDIF
  10.  
  11. Eval >Nil: ${Var} - {Amount} TO ENV:{Var}
  12.  
  13. If {Min} GT ${Var} VAL
  14. Echo "{Max}" >Env:{Var}
  15. ENDIF
  16.  
  17. Echo $Var >Envarc:{Var}
  18.